home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
rlib.zip
/
RL_NTXKE.PRG
< prev
next >
Wrap
Text File
|
1993-01-04
|
571b
|
17 lines
*--------------------------------------------------------------------------
* Function: NtxKeyVal
* Syntax..: NtxKeyVal()
* Returns.: The value from the current database(s) from the evaluation of
* the index key from the currently selected database.
*--------------------------------------------------------------------------
FUNCTION NtxKeyVal
PRIVATE f_ntx_key
f_ntx_key = INDEXKEY(0) && controlling index key expression
IF LEN(TRIM(f_ntx_key)) > 0 && evaluate only if not empty
RETURN &f_ntx_key
ENDIF
RETURN ''